Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/shared.dxr/04484_load Objects code.ls

Text File | 1996-02-21 | 1.5 KB | 36 lines

global gObjectsA, gObjectsB, gObjectsC, gObjectsD, gObjectsE, gObjectsF, gObjectsG, gObjectsH, gWorld, gStates, gOBJECTS, gHotRects, gScreenState, gCursorList, gTimerList, gKeyRef, cNullCast, cNullQTmovie, NULLRECT, gSpritePropTypes, sPICTSPRITE, sQTSPRITE, sCURSORSPRITE, sCPSprite, sQTCharSprite, gUnvObjects, void, gLastCursor, gPlayingQT, gTransMovieName, gAnimationObjects, gDeathRow, gLastKeyList, gKeyFrameSound, gEnvironmentSound, gKeyFrameSoundMode, gKeyExitSound, gHaveNavs, gNextEnvLetter, gNextDIRFile, gMIDIPlayTRUE, gInitalized, noteObjs, windowsMIDIXObj, xNAVXOBJ, xCURXOBJ, gCPU, gfileSep, gRootPath, gHDpath, gXobjs, gXOBJPath, gCDpath, gCDName

on RebuildgOBjects NumFields
  put "starting"
  set mystartTime to the timer
  set gOBJECTS to [:]
  sort(gOBJECTS)
  set Start to the ticks
  repeat with aCount = 1 to NumFields
    set fieldName to "ObjectField" & aCount
    set Templist to value(the text of field fieldName)
    sort(Templist)
    CombineADDList(gOBJECTS, Templist)
  end repeat
  put the timer - mystartTime && "stopTime"
end

on CombineADDList Tolist, FromList
  set C to count(FromList)
  repeat with X = 1 to C
    set obj to getAt(FromList, X)
    setaProp(Tolist, getPropAt(FromList, X), obj)
  end repeat
end

on RebuildgWorld
  set gWorld to [:]
  sort(gWorld)
  set Start to the ticks
  repeat with letter in ["A", "B", "C", "D", "E", "F", "G", "H"]
    set fieldName to string("WorldField" & letter)
    set temp to value(string(the text of field fieldName))
    CombineADDList(gWorld, temp)
  end repeat
end